home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1018 < prev    next >
Text File  |  1996-11-01  |  1KB  |  25 lines
  1. /mc{0 3 1 roll transform neg exch pop}B
  2. /sgt{2 copy known{get T}{p2 F}ifelse}B
  3. /kif{currentfont dup/FontMatrix get exch/FontInfo sgt{T}{currentfont/df sgt
  4.   {dup/FontInfo sgt{3 1 roll/FontMatrix get mtx concatmatrix exch T}{p3 F}
  5.   ifelse}{p2 F}ifelse}ifelse{3 -1 roll sgt{exch T}{pop F}ifelse}{F}ifelse}B
  6. /ul{g/@1 X{90 rotate 1 -1 S}if/@2 X/@3 X/@4 X @3 0 lt{
  7.  @1{/UnderlinePosition kif{mc neg ulpmax 0 ne{dup @3 div abs ulpmax gt
  8.  {pop T}{F}ifelse}{F}ifelse}{T}ifelse}{T}ifelse{@3 -10 div}if
  9.  @2 1 and 0 ne{@4 div}if
  10.  @1{/UnderlineThickness kif{mc ultmax 0 ne{dup @3 div abs ultmax gt
  11.  {pop T}{F}ifelse}{F}ifelse}{T}ifelse}{T}ifelse{@3 -15 div}if
  12.  @2 1 and 0 ne{@4 div}if}{@3}ifelse abs
  13.  @1{currentfont/TrapWidth sgt}{F}ifelse not{0}if
  14.  dup dup 2. div dup dup 0 lt{pop 0}if/@1 X
  15.  neg 5 -1 roll rm 3 -1 roll add dup 0 lt{pop 0}if o
  16.  add dup 0 lt{pop 0}if currentpoint np m
  17.  @2 16 and 0 ne{g @2 8 and 0 eq{shgr}if currentlinewidth 2. div dup
  18.  rm dup 0 rl n G}if @2 8 and 0 ne dup
  19.  {g gtc 1 index 0 rl n G}if
  20.  {@1 sub @1 2. div 0 rm currentlinewidth @1 sub o
  21.  currentpoint np currentlinewidth 2. div sub m dup 0 rl
  22.  0 currentlinewidth @2 512 and 0 eq{rl}{rm}ifelse
  23.  neg 0 rl @2 256 and 0 eq{0 currentlinewidth neg rl}if
  24.  xpys @1 add o 2 a}{0 rl}ifelse n G}B
  25.